home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD023b.dsk / EQUIPMENT INVENTORY.bas < prev    next >
BASIC Source File  |  2003-06-12  |  15KB  |  118 lines
  1. 1 E = 20:F = 256: DIM E$(F,E): DIM F$(E): DIM A(E): FOR G = 1 TO E: READ F$(G): NEXT G: DATA "RECORD NUMBER:  ","ITEM:  ","COST:  $","DATE PURCHASES(MM/DD/YY):  ","VENDOR:  ","WARRANTY (TIME PERIOD):  ","LOCATION (RM# & BLDG):  ","EQUIPMENT CONTROL #:"
  2. 2  DATA    "SERIAL NUMBER:  ","FINAL DISPOSITION:  ","1. DATE REPAIRED (MM/DD/YY):  ","COST OF REPAIR #1:  $","2. DATE REPAIRED (MM/DD/YY):  ","COST OF REPAIR #2:  $"
  3. 3  DATA   "3. DATE REPAIRED (MM/DD/YY):  ","COST OF REPAIR #3:  $","4.  DATE REPAIRED (MM/DD/YY):  ","COST OF REPAIR #4:  $": DATA   "5.  DATE REPAIRED (MM/DD/YY):  ","COST OF REPAIR #5:  $"
  4. 4 A(1) = 4:A(2) = 25:A(3) = 9:A(4) = 8:A(5) = 25:A(6) = 10:A(7) = 10:A(8) = 10:A(9) = 15:A(10) = 10:A(11) = 8:A(12) = 9:A(13) = 8:A(14) = 9:A(15) = 8:A(16) = 9:A(17) = 8:A(18) = 9:A(19) = 8:A(20) = 9:D$ =  CHR$(13) + CHR$(4): ONERR  GOTO 6
  5. 5  PRINT D$;"VERIFY EQUIP INVENTORY": PRINT : POKE 216,0: GOTO 7
  6. 6  POKE 216,0: PRINT : PRINT D$;"OPEN EQUIP INVENTORY,L235": PRINT D$;"WRITE EQUIP INVENTORY,R0":E$(0,1) = "0": PRINT D$;"CLOSE": GOTO 8
  7. 7  PRINT D$;"OPEN EQUIP INVENTORY,L235": PRINT D$;"READ EQUIP INVENTORY,R0": INPUT E$(0,1): PRINT D$;"CLOSE"
  8. 8 H =  VAL(E$(0,1)):I = H: GOSUB 21: GOTO 10
  9. 9  HOME : VTAB 10: HTAB 8: PRINT "THANK YOU": PRINT : PRINT : PRINT  CHR$(4)"RUN MENU"
  10. 10  HOME : VTAB 3: INVERSE : HTAB 10: PRINT "EQUIPMENT INVENTORY": HTAB 15: PRINT "MAIN MENU": NORMAL : PRINT : PRINT : HTAB 4: INVERSE : PRINT " 1 ";: NORMAL : PRINT "  ADD NEW EQUIPMENT ITEM": PRINT : HTAB 4: INVERSE : PRINT " 2 ";: NORMAL : PRINT "  MODIFY AN EXISTING ITEM": PRINT : HTAB 4: INVERSE : PRINT " 3 ";: NORMAL : PRINT "  DELETE AN EXISTING ITEM": PRINT : HTAB 4: INVERSE : PRINT " 4 ";: NORMAL : PRINT "  LIST INVENTORY ITEMS": PRINT : HTAB 4
  11. 11  INVERSE : PRINT " 5 ";: NORMAL : PRINT "  COST OF PURCHASES OR REPAIRS": PRINT : HTAB 4: INVERSE : PRINT " 6 ";: NORMAL : PRINT "  PRINTER ROUTINE": PRINT : HTAB 4: INVERSE : PRINT " 7 ";: NORMAL : PRINT "  QUIT": PRINT : PRINT 
  12. 12  PRINT "PLEASE TYPE IN THE NUMBER OF THE": PRINT "ITEM YOU WOULD LIKE:  ";: GET B$:B =  VAL(B$): IF B <1  OR B >8  THEN  GOTO 12
  13. 13  ON B GOSUB 24,51,62,76,81,104
  14. 19  IF B = 7  THEN  GOTO 9
  15. 20  GOTO 10
  16. 21  HOME : VTAB 3: HTAB 12: INVERSE : PRINT "INSTRUCTIONS": NORMAL : PRINT : PRINT : PRINT "     THIS PROGRAM IS DESIGNED TO ALLOW": PRINT "THE USER TO MAKE A PERMANENT DISK": PRINT "FILE OF ALL EQUIPMENT OWNED.  IT IS": PRINT "SUGGESTED THAT ONLY EQUIPMENT ITEMS": PRINT "COSTING MORE THAN $200 BE INCLUDED"
  17. 22  PRINT "IN THE INVENTORY.  ALONG WITH DATA": PRINT "ON EQUIPMENT SUCH AS COST, DATE PUR-": PRINT "CHASED, SERIAL NUMBER, ETC., THE USER": PRINT "CAN INPUT REPAIR INFORMATION ON EACH": PRINT "PIECE OF EQUIPMENT.": PRINT 
  18. 23  PRINT "MENU CHOICES ARE GIVEN FOR ALL OPTIONS.": PRINT : PRINT : PRINT "PRESS ANY KEY TO BEGIN ";: GET G$: RETURN 
  19. 24  HOME : VTAB 3: HTAB 12: INVERSE : PRINT "INSTRUCTIONS": NORMAL : PRINT : PRINT : PRINT "     THIS PART OF THE PROGRAM ALLOWS": PRINT "YOU TO ADD NEW ITEMS TO THE INVENTORY": PRINT "AND SAVE THESE ITEMS.  THE PROGRAM": PRINT "WILL ASK YOU FOR EACH CATEGORY OF DATA": PRINT "SEPARATELY.  IF YOU DO NOT HAVE INFOR-"
  20. 25  PRINT "MATION TO INPUT FOR A CATEGORY, SIMPLY": PRINT "PRESS RETURN TO MOVE ON TO THE NEXT": PRINT "CATEGORY.": PRINT : PRINT "     AFTER YOU HAVE FINISHED INPUTTING": PRINT "DATA FOR AN ITEM, THE PROGRAM WILL": PRINT "DISPLAY THAT DATA AND ALLOW YOU
  21. 26  PRINT "MAKE ANY CORRECTIONS BEFORE SAVING AN": PRINT "ITEM TO DISK.": PRINT : PRINT : PRINT "PRESS ANY KEY TO BEGIN ";: GET G$:I = H
  22. 27 I = I +1: FOR G = 2 TO E: HOME : VTAB 6: IF G = 2  OR G = 5  THEN  PRINT "MAXIMUM OF 25 CHARACTERS ALLOWED": PRINT : PRINT 
  23. 28  IF G = 3  OR G = 12  OR G = 14  OR G = 16  OR G = 18  OR G = 20  THEN  PRINT "COSTS MAY HAVE DECIMALS BUT NO COMMAS": PRINT "AND 9 CHARACTERS": PRINT : PRINT 
  24. 29  IF G = 6  OR G = 7  OR G = 8  OR G = 10  THEN  PRINT "MAXIMUM OF 10 CHARACTERS ALLOWED": PRINT : PRINT 
  25. 30  IF G = 4  OR G = 11  OR G = 13  OR G = 15  OR G = 17  OR G = 19  THEN  PRINT "MAXIMUM OF 8 CHARACTERS ALLOWED": PRINT : PRINT 
  26. 31  IF G = 9  THEN  PRINT "MAXIMUM OF 15 CHARACTERS ALLOWED": PRINT : PRINT 
  27. 32  INVERSE : PRINT F$(G);: NORMAL : INPUT " ";E$(I,G): NEXT G: HOME : FOR G = 2 TO E: IF G = 11  THEN  PRINT 
  28. 33  PRINT F$(G);: PRINT " ";: INVERSE : PRINT E$(I,G): NORMAL : NEXT G
  29. 34  PRINT : PRINT "IS THIS CORRECT (Y OR N)?  ";: GET B$: PRINT : IF B$ < >"Y"  AND B$ < >"N"  THEN  PRINT : GOTO 34
  30. 35  IF B$ = "N"  THEN  GOSUB 45
  31. 36  GOSUB 44: PRINT : PRINT 
  32. 37  PRINT "WOULD YOU LIKE TO SAVE ITEM (Y OR N)?";: GET A$: IF A$ = "N"  THEN I = I -1: GOTO 40
  33. 38  IF A$ < >"Y"  AND A$ < >"N"  THEN  PRINT : GOTO 37
  34. 39 H = H +1:E$(H,1) =  STR$(H): GOSUB 103
  35. 40  HOME : VTAB 6
  36. 41  PRINT "WOULD YOU LIKE TO ADD ANOTHER": PRINT "EQUIPMENT ITEM (Y OR N)? ";: GET C$: IF C$ < >"Y"  AND C$ < >"N"  THEN  PRINT : GOTO 41
  37. 42  IF C$ = "Y" GOTO 27
  38. 43  RETURN 
  39. 44  HOME : VTAB 10: HTAB 5: PRINT "CHECKING EQUIPMENT ITEM": HTAB 5: PRINT "PLEASE BE PATIENT":A =  FRE(A):H$ = "                 ": FOR G = 2 TO E:E$(I,G) =  RIGHT$(H$ +E$(I,G),A(G)): NEXT G: RETURN 
  40. 45  FOR G = 2 TO E
  41. 46  HOME : VTAB 6: PRINT F$(G);: PRINT " ";: INVERSE : PRINT E$(I,G): NORMAL : PRINT : PRINT 
  42. 47  PRINT "IS THIS CORRECT (Y OR N)? ";: GET G$: IF G$ < >"Y"  AND G$ < >"N"  THEN  PRINT : GOTO 47
  43. 48  IF G$ = "Y"  THEN  GOTO 50
  44. 49  HOME : VTAB 6: PRINT "PLEASE ENTER CORRECT DATA": PRINT : PRINT : INVERSE : PRINT F$(G);: NORMAL : INPUT " ";E$(I,G): GOTO 46
  45. 50  NEXT G:B$ = "Y": HOME : VTAB 6: RETURN 
  46. 51  HOME : INVERSE : HTAB 14: PRINT "INSTRUCTIONS": NORMAL : PRINT : PRINT : PRINT "   IN ORDER TO MODIFY AN EXISTING": PRINT "INVENTORY ITEM, YOU MUST FIRST": PRINT "SELECT THE ITEM TO BE MODIFIED.": PRINT "YOU WILL BE SHOWN A LIST OF ALL": PRINT "THE INVENTORY ITEMS.  NOTE THE": PRINT "ITEM NUMBER OF THE ITEM YOU WANT"
  47. 52  PRINT "TO MODIFY.  YOU WILL BE ASKED TO": PRINT "TYPE IN THAT NUMBER.": PRINT : PRINT 
  48. 53  PRINT "TYPE L TO LIST INVENTORY OR M TO": PRINT "RETURN TO MAIN MENU:  ";: GET G$: IF G$ < >"L"  AND G$ < >"M"  THEN  PRINT : GOTO 53
  49. 54  IF G$ = "M"  THEN  GOTO 10
  50. 55  GOSUB 76: PRINT : PRINT : PRINT "PLEASE TYPE IN THE NUMBER OF THE ITEM": PRINT "YOU WISH TO MODIFY AND PRESS RETURN:  ";: INPUT "";I: GOSUB 123: GOSUB 45: GOSUB 44: HOME : VTAB 10
  51. 56  PRINT "WOULD YOU LIKE TO SAVE THIS CHANGE": PRINT "ON DISK (Y OR N)?  ";: GET I$: IF I$ < >"Y"  AND I$ < >"N"  THEN  PRINT : GOTO 56
  52. 57  IF I$ = "Y"  THEN  GOSUB 103
  53. 58  HOME : VTAB 10
  54. 59  PRINT "WOULD YOU LIKE TO MODIFY OTHER": PRINT "ITEMS (Y OR N)?  ";: GET J$: IF J$ < >"Y"  AND J$ < >"N"  THEN  PRINT : GOTO 59
  55. 60  IF J$ = "Y"  THEN  GOTO 51
  56. 61  RETURN 
  57. 62  HOME : INVERSE : HTAB 14: PRINT "INSTRUCTIONS": NORMAL : PRINT : PRINT : PRINT "     THIS PROGRAM DOES NOT ACTUALLY": PRINT "DELETE AN ITEM.  IT AUTOMATICALLY": PRINT "MODIFIES THE ITEM TO READ 'DELETED'": PRINT "AND BLANKS OUT ALL DATA ASSOCIATED": PRINT "WITH THAT ITEM.  THIS ALLOWS YOU TO"
  58. 63  PRINT "REUSE THIS ITEM NUMBER BY SIMPLY": PRINT "CALLING UP THE MODIFY ROUTINE IN THE": PRINT "MAIN MENU AND CHANGING THE DATA IN": PRINT "THE DELETED ITEM.": PRINT : PRINT "     IN ORDER TO DELETE AN EXISTING": PRINT "ITEM YOU MUST FIRST SELECT THE ITEM"
  59. 64  PRINT "TO BE DELETED.  YOU WILL BE SHOWN": PRINT "A LIST OF ALL INVENTORY ITEMS. NOTE": PRINT "THE ITEM NUMBER OF THE ITEM YOU WISH": PRINT "TO DELETE.  YOU WILL BE ASKED TO": PRINT "TYPE IN THAT NUMBER.": PRINT : PRINT 
  60. 65  PRINT "TYPE L TO LIST INVENTORY OR M TO": PRINT "RETURN TO THE MAIN MENU:  ";: GET G$: IF G$ < >"L"  AND G$ < >"M"  THEN  PRINT : GOTO 65
  61. 66  IF G$ = "M"  THEN  GOTO 10
  62. 67  GOSUB 76: HOME : VTAB 6: PRINT "PLEASE TYPE IN THE NUMBER OF THE ITEM": PRINT "YOU WOULD LIKE TO DELETE FROM THE": PRINT "PERMANENT DISK FILE AND PRESS RETURN:  ";: PRINT : PRINT : INPUT " ";I: GOSUB 123: HOME : FOR G = 2 TO E: IF G = 11  THEN  PRINT 
  63. 68  PRINT F$(G);: PRINT " ";: INVERSE : PRINT E$(I,G): NORMAL : NEXT G
  64. 69  PRINT : PRINT "IS THIS THE ITEM YOU WISH TO DELETE": PRINT "(Y OR N):  ";: GET J$: IF J$ < >"Y"  AND J$ < >"N"  THEN  PRINT : GOTO 69
  65. 70  IF J$ = "N"  THEN  GOTO 72
  66. 71  HOME :E$(I,2) = "DELETED": FOR G = 3 TO E:E$(I,G) = " ": NEXT G: GOSUB 44: HOME : PRINT D$;"OPEN EQUIP INVENTORY,L235": PRINT D$;"WRITE EQUIP INVENTORY,R"I: FOR G = 1 TO E: PRINT E$(I,G): NEXT G: PRINT D$;"CLOSE"
  67. 72  HOME : VTAB 8
  68. 73  PRINT "WOULD YOU LIKE TO DELETE ANOTHER": PRINT "ITEM (Y OR N)?  ";: GET K$: IF K$ < >"Y"  AND K$ < >"N"  THEN  PRINT : GOTO 73
  69. 74  IF K$ = "Y"  THEN  GOTO 62
  70. 75  RETURN 
  71. 76  HOME : PRINT D$;"OPEN EQUIP INVENTORY,L235": FOR G = 1 TO H: PRINT D$;"READ EQUIP INVENTORY,R"G: INPUT E$(G,1),E$(G,2): HOME : VTAB 6: HTAB 4: PRINT "PLEASE BE PATIENT-READING FILE": NEXT G: PRINT D$: HOME :A = 1: FOR G = 1 TO H: PRINT " ";E$(G,1);" ";: NORMAL : PRINT " ";E$(G,2): IF G = A *20  THEN  GOTO 78
  72. 77  NEXT G: PRINT : PRINT "PRESS ANY KEY TO CONTINUE:  ";: GET L$: GOTO 80
  73. 78 A = A +1: PRINT : PRINT "PLEASE TYPE C TO CONTINUE OR": PRINT "S TO STOP LISTING:  ";: GET C$: IF C$ < >"C"  AND C$ < >"S"  THEN  PRINT : GOTO 78
  74. 79  IF C$ = "C"  THEN  HOME : GOTO 77
  75. 80  PRINT D$;"CLOSE": PRINT D$: RETURN 
  76. 81  HOME : VTAB 4: HTAB 14: INVERSE : PRINT "INSTRUCTIONS": NORMAL : PRINT : PRINT : PRINT "     THE PROGRAM WILL ALLOW YOU TO": PRINT "CALCULATE THE COST OF PURCHASES AND/": PRINT "OR THE COST OF REPAIRS FOR ONE YEAR": PRINT "OR SEVERAL (UP TO 4) YEARS.": PRINT : PRINT : HTAB 5: INVERSE : PRINT " 1 ";: NORMAL : PRINT "  COST OF EQUIPMENT PURCHASES": PRINT 
  77. 82  HTAB 5: INVERSE : PRINT " 2 ";: NORMAL : PRINT "  COST OF REPAIRS": PRINT : HTAB 5: INVERSE : PRINT " 3 ";: NORMAL : PRINT "  COST OF EQUIPMENT AND REPAIRS": PRINT : HTAB 5: INVERSE : PRINT " 4 ";: NORMAL : PRINT "  RETURN TO MAIN MENU": PRINT : PRINT : PRINT "PLEASE TYPE IN THE NUMBER OF YOUR"
  78. 83  PRINT "CHOICE (1, 2, 3, OR 4): ";: GET C$:C =  VAL(C$): IF C <1  OR C >4  THEN  PRINT : GOTO 83
  79. 84  IF C = 4  THEN  RETURN 
  80. 85  HOME : VTAB 6: PRINT "PLEASE INPUT THE NUMBER OF YEARS": PRINT "FOR WHICH YOU WOULD LIKE TO CALCU-": PRINT "LATE THE COSTS.  A MAXIMUM OF 4": PRINT "YEARS MAY BE CALCULATED AT ONE TIME."
  81. 86  PRINT "TYPE IN EITHER 1, 2, 3, OR 4:  ";: GET M$:K =  VAL(M$): IF K <1  OR K >4  THEN  GOTO 86
  82. 87  PRINT : PRINT : PRINT "PLEASE TYPE IN EACH YEAR AND": PRINT "PRESS RETURN": PRINT : FOR G = 1 TO K: PRINT : PRINT "YEAR  ";G;":  ";: INPUT " ";N$(G): NEXT G: HOME : PRINT D$;"OPEN EQUIP INVENTORY,L235": FOR G = 1 TO H: PRINT D$;"READ EQUIP INVENTORY,R"G: FOR J = 1 TO E: INPUT E$(G,J): HOME : VTAB 10: HTAB 2: PRINT "PLEASE BE PATIENT-READING FILE": NEXT J: NEXT G: PRINT D$;"CLOSE"
  83. 88 L = 0:M = 0: FOR G = 1 TO K:B(G) = 0:C(G) = 0: NEXT G: IF C = 2  THEN  GOTO 91
  84. 89  FOR G = 1 TO K: FOR J = 1 TO H: IF  RIGHT$(N$(G),2) =  RIGHT$(E$(J,4),2)  THEN B(G) = B(G) + VAL(E$(J,3))
  85. 90  NEXT J:L = L +B(G): NEXT G: IF C = 1  THEN  GOTO 96
  86. 91  FOR G = 1 TO K: FOR J = 1 TO H: IF  RIGHT$(N$(G),2) =  RIGHT$(E$(J,11),2)  THEN C(G) = C(G) + VAL(E$(J,12))
  87. 92  IF  RIGHT$(N$(G),2) =  RIGHT$(E$(J,13),2)  THEN C(G) = C(G) + VAL(E$(J,14))
  88. 93  IF  RIGHT$(N$(G),2) =  RIGHT$(E$(J,15),2)  THEN C(G) = C(G) + VAL(E$(J,16))
  89. 94  IF  RIGHT$(N$(G),2) =  RIGHT$(E$(J,17),2)  THEN C(G) = C(G) + VAL(E$(J,18))
  90. 95  NEXT J:M = M +C(G): NEXT G:O$ = "                "
  91. 96  HOME : VTAB 4: PRINT "YEAR";: HTAB 9: PRINT "EQUIPMENT COSTS";: HTAB 28: PRINT "REPAIR COSTS": PRINT "====";: HTAB 9: PRINT "===============";: HTAB 28: PRINT "============": PRINT : PRINT : FOR G = 1 TO K: PRINT N$(G);: HTAB 9: PRINT  RIGHT$("       " + STR$(B(G)),12);: HTAB 28: PRINT  RIGHT$("       " + STR$(C(G)),10): NEXT G: PRINT : PRINT 
  92. 97  PRINT "TOTAL";: HTAB 9: PRINT  RIGHT$("       " + STR$(L),12);: HTAB 28: PRINT  RIGHT$("       " + STR$(M),10): IF P$ = "Y"  THEN  PRINT : PRINT "<CTRL-D>PR#0": GOTO 102
  93. 98  PRINT : PRINT : PRINT "<CTRL-D>PR#0"
  94. 99  PRINT "WOULD YOU LIKE THIS TABLE PRINTED": PRINT "(Y OR N):  ";: GET P$: IF P$ < >"Y"  AND P$ < >"N"  THEN  GOTO 99
  95. 100  IF P$ = "N"  THEN  PRINT : PRINT : GOTO 81
  96. 101  PRINT "PLEASE TURN ON PRINTER.": PRINT "<CTRL-D>PR#1": GOTO 96
  97. 102  PRINT : PRINT "PRESS ANY KEY TO CONTINUE";: GET G$: GOTO 81
  98. 103  HOME : PRINT D$;"OPEN EQUIP INVENTORY,L235": PRINT D$;"WRITE EQUIP INVENTORY,R"I: FOR G = 1 TO E: PRINT E$(I,G): NEXT G: PRINT D$: PRINT D$;"WRITE EQUIP INVENTORY,R0":E$(0,1) =  STR$(H): PRINT E$(0,1): PRINT D$: PRINT D$;"CLOSE EQUIP INVENTORY": RETURN 
  99. 104  HOME : VTAB 6: HTAB 14: INVERSE : PRINT "INSTRUCTIONS": NORMAL : PRINT : PRINT : PRINT "     THE PROGRAM WILL ALLOW YOU TO": PRINT "PRINT AN INDIVIDUAL ITEM, ALL ITEMS": PRINT "OR THE LISTING OF ITEMS NAMES.": PRINT : PRINT : INVERSE : PRINT " 1 ";: NORMAL : PRINT " ";"PRINT ONE ITEM": PRINT : INVERSE : PRINT " 2 ";: NORMAL : PRINT " PRINT ALL ITEMS": PRINT 
  100. 105  INVERSE : PRINT " 3 ";: NORMAL : PRINT " PRINT ONLY ITEM NAMES": PRINT : INVERSE : PRINT " 4 ";: NORMAL : PRINT " RETURN TO MAIN MENU": PRINT : PRINT 
  101. 106  PRINT "PLEASE TYPE IN THE NUMBER OF THE": PRINT "PRINT OPTION YOU WOULD LIKE:  ";: GET Q$:N =  VAL(Q$): IF N <1  OR N >4  THEN  PRINT : GOTO 106
  102. 107  IF N = 1  THEN  GOTO 115
  103. 108  IF N = 3  THEN  GOTO 120
  104. 109  IF N = 4  THEN  RETURN 
  105. 110  HOME : FOR G = 1 TO H: VTAB 10: HTAB 6: PRINT "READING FILES": PRINT D$;"OPEN EQUIP INVENTORY,L235": PRINT D$;"READ EQUIP INVENTORY,R"G: FOR J = 1 TO E: INPUT E$(G,J): NEXT J: NEXT G
  106. 111  HOME : VTAB 6: PRINT "PLEASE TURN ON PRINTER AND POSITION": PRINT "PAPER TO TOP OF NEW PAGE": PRINT : PRINT : PRINT "PRESS ANY KEY WHEN READY TO BEGIN  ";: GET J$: IF N = 1  THEN  GOTO 118
  107. 112  IF N = 3  THEN  GOTO 121
  108. 113  HOME : PRINT : PRINT "<CTRL-D>PR#1": FOR G = 1 TO H: PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : FOR J = 1 TO E: IF J = 2  OR J = 3  OR J = 4  OR J = 5  OR J = 6  OR J = 7  OR J = 8  OR J = 9  OR J = 10  OR J = 11  THEN  PRINT 
  109. 114  PRINT F$(J);E$(G,J): NEXT J: FOR O = 1 TO 30: PRINT : NEXT O: NEXT G: GOTO 122
  110. 115  HOME : GOSUB 76: PRINT : PRINT 
  111. 116  PRINT "PLEASE TYPE IN THE NUMBER OF THE": PRINT "ITEM YOU WOULD LIKE TO PRINT: ";: INPUT "";I: IF I <1  OR I >H  THEN  GOTO 116
  112. 117  GOSUB 123: GOTO 111
  113. 118  HOME : PRINT : PRINT "<CTRL-D>PR#1": FOR D = 1 TO 6: PRINT : NEXT D: FOR G = 1 TO E: IF G = 2  OR G = 3  OR G = 4  OR G = 5  OR G = 6  OR G = 7  OR G = 8  OR G = 9  OR G = 10  OR G = 11  THEN  PRINT 
  114. 119  PRINT F$(G);E$(I,G): NEXT G: GOTO 122
  115. 120  GOTO 111
  116. 121  GOSUB 76: PRINT : PRINT "<CTRL-D>PR#1": FOR G = 1 TO H: PRINT E$(G,1);"     ";E$(G,2): NEXT G
  117. 122  PRINT : PRINT  CHR$(4)"PR#0": PRINT  CHR$(4)"CLOSE": RETURN 
  118. 123  PRINT D$;"OPEN EQUIP INVENTORY,L235": PRINT D$;"READ EQUIP INVENTORY,R"I: FOR G = 1 TO E: HOME : INPUT E$(I,G): VTAB 6: HTAB 8: PRINT "READING FILE": NEXT G: PRINT D$: PRINT D$;"CLOSE": RETURN